home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / m / magazin / straight.2 / basic / p_q / polyline.lst < prev    next >
Encoding:
File List  |  1996-09-18  |  439 b   |  24 lines
  1. PRINT " POLYLINE  Beispiel "        ! 1/92
  2. '
  3. DIM x(10),y(10)
  4. yt%=MIN(2,3-XBIOS(4))
  5. GRAPHMODE 3
  6. DO UNTIL MOUSEK OR LEN(INKEY$)
  7.   FOR i=0 TO 9
  8.     x(i)=RANDOM(100)+56*i
  9.     y(i)=RANDOM(280/yt%)+40/yt%
  10.   NEXT i
  11.   x(i)=x(0)
  12.   y(i)=y(0)
  13.   aa=INT(RND*5)+1
  14.   bb=INT(RND*24)
  15.   cc=RANDOM(5)+1
  16.   DEFLINE cc,1,2,2
  17.   FOR j%=1 TO 2
  18.     FOR i%=3 TO 99 STEP 6
  19.       POLYLINE 11,x(),y() OFFSET i%,i%
  20.     NEXT i%
  21.   NEXT j%
  22. LOOP
  23. EDIT
  24.